(*~\Глагол\Отделы\Поле~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Метка;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: метка к наделу (потомок надела)
 *============================================================================*)
ИСПОЛЬЗУЕТ 
  Надел,
  Поле,
  Ввод  ИЗ "..\Обмен\";
ВИД
  Доступ-=ДОСТУП К Вид;
  Вид-=НАБОР(Надел.Вид)
    надпись:Надел.Надпись;
    буквица:ЦЕЛ;
    надел:Надел.Доступ;
  КОН;

(******************************************************************************)
ЗАДАЧА Приём(надел:Надел.Доступ; посылка+:Ввод.Посылка);
ПЕР
  метка:Доступ;
УКАЗ
  метка:=надел(Доступ);
  ДЛЯ посылка ВИДА
  | Поле.Отрисовка:
      Надел.ВыводНадписи(метка,метка.надпись,0)
  | Поле.Буквица:
      ЕСЛИ метка.надел # ПУСТО ТО
        ЕСЛИ посылка.буквица = метка.буквица ТО
          Поле.СостояниеНаделу(метка.надел,Надел.сВыбран);
          посылка.буквица:=0
        КОН
      КОН
  ИНАЧЕ
  КОН
КОН Приём;

(******************************************************************************)
ЗАДАЧА Создать-(верх,лево:ЦЕЛ; надпись-:ЦЕПЬ; надел:Надел.Доступ):Доступ;
ПЕР
  метка:Доступ;
  колонок:ЦЕЛ;
УКАЗ
  СОЗДАТЬ(метка);
  Надел.СчитатьНадпись(надпись,метка.надпись,колонок,метка.буквица);
  Надел.Подготовить(метка,верх,лево,1,колонок,{},Приём);
  метка.надел:=надел;
  ВОЗВРАТ метка
КОН Создать;

КОН Метка.